home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Contributed Scores / Mark Polishook / Herrick.2nd.part < prev    next >
Lisp/Scheme  |  1998-10-26  |  4KB  |  108 lines
  1. (initdef) 
  2. (defsym c '(c c b a b))         
  3. (defsym b '(a b c d e))           
  4. (defsym a '(b c a))
  5. (setq frag (symbol-transpose 14 (append '(c b a) (gen-trans a 2)))) 
  6. (setq frag.looped (gen-loop '(1 3 3) frag))
  7. (setq frag.looped.var.i (filter-transpose 1 '(p) (filter-transpose 2 '(q) frag.looped))) 
  8. (setq frag.l (append '(1/4 1/4 1/2) (get-timing '1/16 (find-change frag)))) 
  9. (setq frag.l.looped (gen-loop '(1 3 3) frag.l))
  10.  
  11. (setq chords '(ace (ac +1 e) acf acg acg)) 
  12. (setq c.i '(ace ace (ac 1 e) (ac 1 e) acf acf acg acg acg acg acg acg acg acg acg acg))
  13. (setq c.ii (append (symbol-repeat 4 (symbol-trim 6 c.i)) '(acg acg acg acg acg acg acg acg acg acg)))
  14. (setq c.var.iii (append c.i c.ii))
  15. (setq c.var.iv (append c.ii c.ii)) 
  16. (setq c.trans '(bdf bdg (bd +1 g) bdh bdh))
  17. (setq c.mod (append (symbol-repeat 8 '(ace bdf ceg)) (symbol-repeat 10 '(bdg))))
  18. (setq c.trans.var.ii (append (symbol-repeat 8 (symbol-trim 3 c.trans)) (symbol-repeat 10 '(bdh))))
  19. (setq c.l '(1/1 1/1 1/1 5/8 5/8))
  20. (setq c.l.var.i '(1/2. 1/4 1/2. 1/4 1/2. 1/4 1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8))
  21. (setq c.l.var.ii (symbol-repeat 34 '(1/8)))
  22. (setq c.l.var.iii (append c.l.var.i c.l.var.ii))
  23. (setq c.l.var.iv (append c.l.var.ii c.l.var.ii))
  24. (setq c.appendages '(a a c c e e c c f f e e a a c c = = c c = = a a c c e e c c f f e e g g f f = = c c e e c c = 
  25. = e e a a c c e e c c f f a a c c e e c c f f = = a a c c e e c c f f a a c c = = c c f f = = g g f f = = = = e e 
  26. c c = = e e a a c c e e c c = = a a c c e e c c f f e e g g f f = = c c e e c c f f e e a a = = e e = = f f a a c 
  27. c e e c c = = e e a a c c e e c c f f a a c c e e c c = = = = = = f f a a c c e e c c f f e e a a c c = = c c f f 
  28. a a c c e e c c f f e e a a c c e e c c f f a a = = e e c c f f e e g g f f a a c c e e c c f f e e a a c c e e c 
  29. c f f b b d d f f d d g g f f h h g g c c e e g g e e h h g g c c e e g g e e h h = = e e g g e e c c g g h h e e 
  30. g g e e c c g g h h f f g g d d f f d d b b f f c c e e c c a a e e f f c c e e c c a a h h e e g g e e c c g g h 
  31. h e e g g e e c c g g h h f f g g d d f f d d b b f f c c e e c c a a e e f f c c e e c c a a))
  32. (init-soup 'soup c.appendages)
  33. (setq solo (symbol-transpose 7 (find-change (ornament-higher 2 (symbol-trim 136 (gen-catalyze 'soup .0214))))))
  34. ;--------------------------------------------------------------------------------------------------------
  35.  
  36. (def-orchestra 'ensemble
  37.   trio (violin cello piano)
  38.   piano (rh lh))
  39.  
  40. (def-symbol
  41.   violin (list '(=) solo solo)
  42.   cello '(=) 
  43.   rh (list frag.looped frag.looped frag.looped frag.looped frag.looped frag.looped.var.i)    
  44.   lh (list chords c.trans c.var.iii c.var.iv c.trans.var.ii c.mod)
  45. )
  46.  
  47. (def-length
  48.   violin '((-1/8) (1/8) (1/8)) 
  49.   cello ' (-1/8) 
  50.   rh frag.l.looped 
  51.   lh (list c.l c.l c.l.var.iii c.l.var.iv c.l.var.ii c.l.var.iv) 
  52. )   
  53.  
  54. (def-zone
  55.   violin '(-17/1 17/1 17/2) 
  56.   cello '(-17/1) 
  57.   rh '(17/2 17/4 17/2 17/2 17/4 17/2)
  58.   lh '(17/2 17/4 17/2 17/2 17/4 17/2) 
  59. )
  60.  
  61. (def-velocity
  62.   violin '(64)
  63.   cello '(24) 
  64.   rh '(72)
  65.   lh '(24)
  66. )
  67.  
  68. (def-tonality
  69.   violin (activate-tonality (mixolydian a 5) (mixolydian a 5) (major a 5))
  70.   cello (activate-tonality (mixolydian a 3)) 
  71.   rh (activate-tonality (mixolydian a 3) (mixolydian a 3) (mixolydian a 3) (mixolydian a 3) (mixolydian a 3)
  72.                         (major a 3))
  73.   lh (activate-tonality (mixolydian a 4) (mixolydian a 4) (mixolydian a 4) (mixolydian a 4) (mixolydian a 4)
  74.                         (phrygian c# 5))
  75. ) 
  76.  
  77. (def-tempo 112)
  78.  
  79. (compile-instrument-p "ccl;output:" "herrick.2nd"
  80.   trio
  81. )
  82.  
  83.  
  84. #|
  85. (setq wild (symbol-trim 41 (gen-expansion 2 '(-p -l) (reverse (vector-to-symbol a m (gen-connel 6 'up))))))
  86. (setq wild-filtered (filter-delete '(b d -d) wild)) 
  87. (setq wild.l (get-timing '1/8 (find-change wild)))
  88. (setq xx (tonality-to-symbols (flatten (symbols-to-tonality symbols wild-filtered transpose '((0)) mapping 
  89.      (activate-tonality (overtone-series 1 12 1 '(a 3))))) (activate-tonality (mixolydian a 5))))
  90. |#
  91.  
  92.  
  93.     
  94.   
  95.     
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.